home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
misc
/
GadMget1_9.lha
/
GadMGet1.9
/
AutoFTP.script
next >
Wrap
Text File
|
1995-02-02
|
2KB
|
63 lines
; Autoftp : A script to automatically ftp files from an Aminet archive site.
;
; Autoftp uses ncftp and AmiTCP to function, if you don't have both of these
; working, Autoftp won't be useful to you.
;
; Keywords accepted : YES -- Download a new RECENT file, without asking user
; NO -- Don't download the new RECENT file
; (otherwise) -- Display a requester asking whether to download
; the new RECENT file or not.
;
; THINGS TO CHANGE FOR YOUR SETUP
;
; 1) Make sure the EasyReq and UniqueFile commands are in your search
; path... c: is a good place for them.
; 2) Make sure GadMget is in your search path, or specify it's location
; on the line where it is called, below
; 3) If you want to use a site other than wcarchive.cdrom.com, search
; and replace with your preferred site
; 4) Autoftp is currently configured to store the RECENT file in txt:, and
; the downloads in dn:. Assign these directories to where you want
; the files kept, or change the references in the script.
;
.bra {
.ket }
.key GETRECENT
failat 25
stack 50000 ;ncftp can abort if it doesn't have plenty of stack!
if {GETRECENT} EQ "YES"
echo "1" > env:GadAnswer
else
if {GETRECENT} EQ "NO"
echo "2" >env:GadAnswer
else
easyreq >env:GadAnswer "Do you want to download a new RECENT listing?" "GadMGet Script" "Yes|No|Cancel"
endif
endif
if $GadAnswer eq 0
endcli
quit
endif
if $GadAnswer eq 1
cd txt: ;Change this to wherever you wish to keep RECENT
amitcp:bin/ncftp -r wcarchive.cdrom.com:/pub/aminet/RECENT ;Change this to your favorite FTP site
endif
uniquefile t:AutoFTP.GetList >env:GETLISTFILE
;You may need to specify the path to GadMGet here if it's not in your default path!
gadmget txt:recent OUTPUT $GETLISTFILE NOSIMPLEPATHS KEEPGETSORT GETSORT Size
if not `list $GETLISTFILE lformat="%L"` eq "empty"
cd dn: ;Change this to wherever you want to receive your new files
amitcp:bin/ncftp -r wcarchive.cdrom.com:/pub/aminet/ <$GETLISTFILE ;Change this site as well
endif
delete env:GETLISTFILE QUIET
endcli